home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 8 / QRZ Ham Radio Callsign Database - Volume 8.iso / pc / files / mac / proj_b1.hqx / Project Mac - B1 / Radio / card_4984.txt < prev    next >
Text File  |  1987-12-15  |  2KB  |  83 lines
  1. -- card: 4984 from stack: in
  2. -- bmap block id: 5188
  3. -- flags: 0000
  4. -- background id: 2782
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0002
  11. -- rect: left=151 top=62 right=79 bottom=188
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 65535
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: forward
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 00
  24. -- high flags: 0002
  25. -- rect: left=151 top=80 right=97 bottom=188
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 65535
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: reflected
  34.  
  35.  
  36. -- part 3 (field)
  37. -- low flags: 00
  38. -- high flags: 0002
  39. -- rect: left=149 top=100 right=118 bottom=188
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 65535
  43. -- font id: 3
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: VSWR
  48.  
  49.  
  50. -- part 4 (button)
  51. -- low flags: 00
  52. -- high flags: 2000
  53. -- rect: left=84 top=101 right=118 bottom=146
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: 
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   set the numberFormat to "0.00"
  65.   put the value of card field "reflected" into a
  66.   put the value of card field "forward" into b
  67.   put a/b into k
  68.   put the value of (1+sqrt(k))/(1-sqrt(k)) into card field "vswr"
  69. end mouseUp
  70.  
  71.  
  72.  
  73. -- part contents for card part 1
  74. ----- text -----
  75. 40
  76.  
  77. -- part contents for card part 2
  78. ----- text -----
  79. 10
  80.  
  81. -- part contents for card part 3
  82. ----- text -----
  83. 3.00